home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2000 #4 / Amiga Plus CD - 2000 - No. 4.iso / Tools / Datatypes / Text / Install < prev    next >
Encoding:
Text File  |  2000-05-29  |  1.3 KB  |  68 lines
  1. ; $VER: Install 1.0 (26.03.00)
  2. ; Installation-Script for the text.datatype
  3.  
  4. ; ----- German string section -----
  5.  
  6. (set #language (getenv("language")))
  7. (if( <> (strlen #language) 0)
  8. (
  9.   (set @language #language)
  10. ))
  11.  
  12. (if (= @language "deutsch")
  13. (
  14.  (set #overwrite-request
  15.  (cat "Soll der vorhandene text.datatype (Version %ld.%ld) "
  16.       "wirklich ersetzt werden?"))
  17.  
  18.  (set #datatype-prompt "text.datatype kopieren?")
  19. )
  20.  
  21. ; ----- English string section -----
  22.  
  23. (
  24.  (set #overwrite-request
  25.  (cat "Should the installed text.datatype (version %ld.%ld) really be"
  26.       "replaced?"))
  27.  (set #datatype-prompt "Copy text.datatype?")
  28.  
  29. ))
  30. ; ----------------------------------
  31.  
  32. ;(set @default-dest "RAM:")
  33.  
  34. (complete 0)
  35.  
  36. (if (= (exists "SYS:Classes/DataTypes/text.datatype") 1)
  37. (
  38.   (set vernum (getversion "SYS:Classes/DataTypes/text.datatype"))
  39.   (set ver (/ vernum 65536))
  40.   (set rev (- vernum (* ver 65536) ) )
  41.  
  42.   (if(or (<> ver 44) (> rev 8))
  43.   (
  44.     (set #overwrite (askbool (prompt (#overwrite-request ver rev))
  45.                              (help @askbool-help)
  46.                              (default 1)))
  47.  
  48.     (if( = #overwrite 0)
  49.     (
  50.       (exit)
  51.     ))
  52.  
  53.  
  54.   ))
  55. ))
  56.  
  57. (set @default-dest "SYS:")
  58.  
  59. (complete 50)
  60.  
  61. (copylib (prompt #datatype-prompt)
  62.          (confirm)
  63.          (source "text.datatype")
  64.          (dest "SYS:Classes/DataTypes")
  65.          (help @copylib-help))
  66.  
  67. (complete 100)
  68.